10 D = 0: GR : FOR I = 9 TO 13: COLOR= I: HLIN 2,37 AT I: COLOR= 5: VLIN 0,39 AT I/13: HLIN 0,39 AT I/13: VLIN 0,39 AT 38 +I/13: NEXT : FOR F = 0 TO 4:F = E:H = 1:V = -1:X = 3:Y = 25: FOR T = 0 TO 1: PLOT X,Y:L = PDL(0)/8 +2: HLIN L,L +4 AT 37:N = X:O = Y:A = SCRN( X +H,O):B = SCRN( X +H,Y +V):C = SCRN( N,Y +V): COLOR= 0
20 H = H *((A = 0 AND B = C) -(B < >C OR (B = C AND A >1))):V = V *((B = A AND C = 0) -(B < >A OR C >1)):X = N +H:Y = O +V:P = N -H *(C <6 AND A < >5):Q = O -V *(C >6 OR B >6):J = ( SCRN( P,Q) >6):S = S +J:D = D +J: VTAB 21: PRINT S,F: PLOT N,O: PLOT P,Q: HLIN L,L +4 AT 37: COLOR= 5: ON D/170 GOTO 10:T = (Y >38):E = F +(T = 1): NEXT T,F